﻿<Serializable()> _
Public Class Telefone
    Inherits Contato

    Private _ddd As String
    Public Overridable Property DDD() As String
        Get
            Return _ddd
        End Get
        Set(ByVal value As String)
            _ddd = value
        End Set
    End Property

    Private _numero As String
    Public Overridable Property Numero() As String
        Get
            Return _numero
        End Get
        Set(ByVal value As String)
            _numero = value
        End Set
    End Property

    Private _tipoTelefone As TipoTelefone
    Public Overridable Property Tipo() As TipoTelefone
        Get
            Return _tipoTelefone
        End Get
        Set(ByVal value As TipoTelefone)
            _tipoTelefone = value
        End Set
    End Property

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Telefone
        Return MyBase.TelefoneDao.Buscar(_id)
    End Function

#End Region

End Class